(defrule creation1
(declare (salience 25))
?f1 <-   (create-actual-map)
 =>
(assert (actual_cell (pos-r 1) (pos-c 1) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 2) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 3) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 4) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 5) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 6) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 7) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 8) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 9) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 10) (contains Wall) (actual ok))
             (actual_cell (pos-r 1) (pos-c 11) (contains Wall) (actual ok))
             (actual_cell (pos-r 2) (pos-c 1) (contains Wall) (actual ok))
             (actual_cell (pos-r 2) (pos-c 2) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 3) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 4) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 5) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 6) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 7) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 8) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 9) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 10) (contains Empty) (actual ok))
             (actual_cell (pos-r 2) (pos-c 11) (contains Wall) (actual ok))
             (actual_cell (pos-r 3) (pos-c 1) (contains Wall) (actual ok))
             (actual_cell (pos-r 3) (pos-c 2) (contains Seat) (actual ok))
             (actual_cell (pos-r 3) (pos-c 3) (contains Seat) (actual ok))
             (actual_cell (pos-r 3) (pos-c 4) (contains Seat) (actual ok))
             (actual_cell (pos-r 3) (pos-c 5) (contains Empty) (actual ok))
             (actual_cell (pos-r 3) (pos-c 6) (contains Empty) (actual ok))
             (actual_cell (pos-r 3) (pos-c 7) (contains Empty) (actual ok))
             (actual_cell (pos-r 3) (pos-c 8) (contains Seat) (actual ok))
             (actual_cell (pos-r 3) (pos-c 9) (contains Empty) (actual ok))
             (actual_cell (pos-r 3) (pos-c 10) (contains Seat) (actual ok))
             (actual-cell (pos-r 3) (pos-c 11) (contains Wall) (actual ok))
             (actual-cell (pos-r 4) (pos-c 1) (contains Wall) (actual ok))
             (actual-cell (pos-r 4) (pos-c 2) (contains Seat) (actual ok))
             (actual-cell (pos-r 4) (pos-c 3) (contains Table)(actual ok)) 
             (actual-cell (pos-r 4) (pos-c 4) (contains Empty)(actual ok))
             (actual-cell (pos-r 4) (pos-c 5) (contains Empty)(actual ok))
    (actual-cell (pos-r 4) (pos-c 6) (contains Seat)(actual ok))
    (actual-cell (pos-r 4) (pos-c 7) (contains Empty)(actual ok))
    (actual-cell (pos-r 4) (pos-c 8) (contains Seat)(actual ok))
    (actual-cell (pos-r 4) (pos-c 9) (contains Table)(actual ok))
    (actual-cell (pos-r 4) (pos-c 10) (contains Seat)(actual ok))
    (actual-cell (pos-r 4) (pos-c 11) (contains Wall)(actual ok))
    (actual-cell (pos-r 5) (pos-c 1) (contains Wall)(actual ok))
    (actual-cell (pos-r 5) (pos-c 2) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 3) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 4) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 5) (contains Seat)(actual ok))
    (actual-cell (pos-r 5) (pos-c 6) (contains Table)(actual ok))
    (actual-cell (pos-r 5) (pos-c 7) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 8) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 9) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 10) (contains Empty)(actual ok))
    (actual-cell (pos-r 5) (pos-c 11) (contains Wall)(actual ok))
    (actual-cell (pos-r 6) (pos-c 1) (contains Wall)(actual ok))
    (actual-cell (pos-r 6) (pos-c 2) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 3) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 4) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 5) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 6) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 7) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 8) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 9) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 10) (contains Empty)(actual ok))
    (actual-cell (pos-r 6) (pos-c 11) (contains Wall)(actual ok))
    (actual-cell (pos-r 7) (pos-c 1) (contains Wall)(actual ok))
    (actual-cell (pos-r 7) (pos-c 2) (contains Empty)(actual ok))
    (actual-cell (pos-r 7) (pos-c 3) (contains Seat)(actual ok))
    (actual-cell (pos-r 7) (pos-c 4) (contains Empty)(actual ok))
    (actual-cell (pos-r 7) (pos-c 5) (contains FD)(actual ok))
    (actual-cell (pos-r 7) (pos-c 6) (contains Empty)(actual ok))
    (actual-cell (pos-r 7) (pos-c 7) (contains DD)(actual ok))
    (actual-cell (pos-r 7) (pos-c 8) (contains Empty)(actual ok))
    (actual-cell (pos-r 7) (pos-c 9) (contains Seat)(actual ok))
    (actual-cell (pos-r 7) (pos-c 10) (contains Empty)(actual ok))
    (actual-cell (pos-r 7) (pos-c 11) (contains Wall)(actual ok))
    (actual-cell (pos-r 8) (pos-c 1) (contains Wall)(actual ok))
    (actual-cell (pos-r 8) (pos-c 2) (contains Empty)(actual ok))
    (actual-cell (pos-r 8) (pos-c 3) (contains Table)(actual ok))
    (actual-cell (pos-r 8) (pos-c 4) (contains Empty)(actual ok))
    (actual-cell (pos-r 8) (pos-c 5) (contains TB)(actual ok))
    (actual-cell (pos-r 8) (pos-c 6) (contains Parking)(actual ok))
    (actual-cell (pos-r 8) (pos-c 7) (contains RB)(actual ok))
    (actual-cell (pos-r 8) (pos-c 8) (contains Empty)(actual ok))
    (actual-cell (pos-r 8) (pos-c 9) (contains Table)(actual ok))
    (actual-cell (pos-r 8) (pos-c 10) (contains Seat)(actual ok))
    (actual-cell (pos-r 8) (pos-c 11) (contains Wall)(actual ok))
    (actual-cell (pos-r 9) (pos-c 1) (contains Wall)(actual ok))
    (actual-cell (pos-r 9) (pos-c 2) (contains Seat)(actual ok))
    (actual-cell (pos-r 9) (pos-c 3) (contains Seat)(actual ok))
    (actual-cell (pos-r 9) (pos-c 4) (contains Empty)(actual ok))
    (actual-cell (pos-r 9) (pos-c 5) (contains Empty)(actual ok))
    (actual-cell (pos-r 9) (pos-c 6) (contains Empty)(actual ok))
    (actual-cell (pos-r 9) (pos-c 7) (contains Empty)(actual ok))
    (actual-cell (pos-r 9) (pos-c 8) (contains Empty)(actual ok))
    (actual-cell (pos-r 9) (pos-c 9) (contains Seat)(actual ok))
    (actual-cell (pos-r 9) (pos-c 10) (contains Empty)(actual ok))
    (actual-cell (pos-r 9) (pos-c 11) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 1) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 2) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 3) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 4) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 5) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 6) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 7) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 8) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 9) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 10) (contains Wall)(actual ok))
    (actual-cell (pos-r 10) (pos-c 11) (contains Wall)(actual ok))
     )
     (retract ?f1))
